home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / testfiles / TestNewMenu < prev    next >
Encoding:
Text File  |  2002-03-13  |  1.7 KB  |  76 lines
  1. intuition  <- Intuition new
  2.  
  3. scr <- Screen new
  4. scr setScreenModeID: 16r40D20001
  5. scr open: 'Testing GadTools Menus:'
  6.  
  7. win <- Window new: 'Select a Menu Item...'
  8.  
  9. win setFlags: ((intuition getWindowFlag: #WFLG_ACTIVATE) + (intuition getWindowFlag: #WFLG_CLOSEGADGET))
  10.  
  11. win setIDCMPFlags: ((intuition getIDCMPFlag: #IDCMP_MENUPICK) + (intuition getIDCMPFlag: #IDCMP_CLOSEWINDOW))
  12.  
  13. win openOnScreen: scr
  14.  
  15. menu <- NewMenus new
  16.  
  17. menu allocateNewMenu: 3
  18.  
  19. menu1 <- menu initMenuArray: intuition title: 'PROJECT' key: nil flags: 0 exclude: 0 data: 0
  20.  
  21. menu2 <- menu initMenuItemArray: intuition title: 'Test NewMenu handler' 
  22.                             key: 'T' flags: 0 exclude: 0 
  23.                            data: #sampleMethod:forMenuCommand:callback:
  24.  
  25. menu fillNewMenuItem: 1 with: menu1
  26. menu fillNewMenuItem: 2 with: menu2
  27. menu fillNewMenuItem: 3 with: (menu endOfMenuArray: intuition)
  28.  
  29. createTags <- Array new: 3
  30. createTags at: 1 put: (intuition getGadToolAttr: #GTMN_FrontPen)
  31. createTags at: 2 put: 0
  32. createTags at: 3 put: (intuition specialTag: #TAG_DONE)
  33.  
  34. menuStrip <- menu createMenuStrip: createTags
  35.  
  36. layoutTags <- Array new: 1
  37.  
  38. layoutTags at: 1 put: (intuition specialTag: #TAG_DONE)
  39.  
  40. junk <- menu getVisualInfo: scr tags: layoutTags
  41.  
  42. chk2 <- menu initializeMenus: layoutTags
  43.  
  44. ('initializeMenus: returned ', (chk2 asString) print)
  45.  
  46. menu registerTo: win
  47.  
  48. win addMenuStrip: menuStrip
  49.  
  50. scr screenToFront
  51.  
  52. rval <- String new
  53.  
  54. rval <- menu waitForMenuUserData
  55.  
  56. scr screenToBack
  57.  
  58. ('UserData is: ', rval) print
  59.  
  60. win changeTitle: 'Select the same Menu Item again...'
  61. scr screenToFront
  62.  
  63. rval <- menu waitForMenuString
  64.  
  65. scr screenToBack
  66.  
  67. ('Menu String is: ', rval ) print
  68.  
  69. win close
  70. scr close
  71.  
  72. menu freeVisualInfo
  73. menu disposeMenu
  74.  
  75. ('   Done with TestNewMenu!') print
  76.